home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 52 / 052.d81 / spanish main (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  10.7 KB  |  304 lines
  1. 1 rem " [211]panish, [197]asy as [193]-[194]-[195]                 (c) 1988 by [212]om [195]anfield"
  2. 10 br=53280:sc=53281:print"[147] [208]lease wait...[204]oading quiz."
  3. 11 s=54272:pokes+24,15:s4=s+4:s1=s+1
  4. 12 pokes1,21:pokes+5,9:pokes+6,10:pokes4,32:pokes4,33
  5. 329 dimh,d,q,x,y,t%,e%,sl%,ca%,tc%,aa,bb,xx,yy,ao,bo,xo,yo,an,bn,xn,yn,at,xt
  6. 330 dimcc,cn,co,zz,zn,zo,tb,eo,en,pg,pc%,ct%,w%(29),c%(29):pc%=0
  7. 331 dime$,er$,sl$(2,2,44),el$(2,2,44)
  8. 332 dimaq$(2,3),lv$(3),ph$(3),sc$(4)
  9. 335 foraa=0to2:forbb=0to2:readaq$(aa,bb):next:next:readaq$(1,3)
  10. 336 foraa=0to2:readlv$(aa):readph$(aa):next
  11. 337 foraa=0to4:readsc$(aa):next
  12. 340 :
  13. 341 open2,8,2,"questions"
  14. 345 forh=0to2:fori=0to2:forj=0to44:input#2,sl$(h,i,j):input#2,el$(h,i,j)
  15. 347 next:next:next:close2
  16. 350 ifd=0then360
  17. 351 c%(0)=int(rnd(0)*40)
  18. 352 pokebr,7:pokesc,7:poke214,7:print:printtab(10)" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
  19. 353 printtab(10)"[176][190]             [188][174][155] "
  20. 354 printtab(10)"[221]               [221][155] "
  21. 355 printtab(10)"[221] [210][197][214][201][211][201][206][199][160][209][213][201][218] [221][155] "
  22. 356 printtab(10)"[221]               [221][155] "
  23. 357 printtab(10)"[173][187]             [172][189][155] "
  24. 358 printtab(10)" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
  25. 359 printtab(10)"*                 "
  26. 360 forx=1to29
  27. 370 c%(x)=int(rnd(0)*45)
  28. 380 fory=0tox-1:ifc%(x)=c%(y)then370
  29. 390 next:next:pokes4,32:pokes4,33
  30. 395 tc%=0:t%=0:pc%=0:ct%=13
  31. 400 ift%<30thencc%=ct%:goto410
  32. 401 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
  33. 402 print"[176][190]                              [188][174][155] "
  34. 403 print"[221] [209]uiz complete, cannot continue [221][155] "
  35. 404 print"[173][187]                              [172][189][155] "
  36. 405 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
  37. 406 print"*                                  "
  38. 407 goto1118
  39. 410 ifd=3then2370
  40. 425 ifd<>1thenpokebr,9:pokesc,9
  41. 430 print"[147]"tab(12)" [176][192][192][192][192][192][192][192][192][192][174] [155]*"
  42. 440 printtab(12)"[176][190]         [188][174][155] "
  43. 450 printtab(12)"[221]  [211][208][193][206][201][211][200]  [221][155] "
  44. 460 printtab(12)"[173][187]         [172][189][155] "
  45. 470 printtab(12)" [173][192][192][192][192][192][192][192][192][192][189] [155] "
  46. 471 printtab(12)"*             ":ifd=1then571
  47. 475 print" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
  48. 476 print"[176][190]                                 [188][174][155] "
  49. 477 print"[221] [205]ake selections with [146][195][210][211][210] keys or [221][155] "
  50. 478 print"[221] press letter.  [212]hen press [146][210][197][212][213][210][206]. [221][155] "
  51. 479 print"[221] [197]ach quiz contains 30 questions.  [221][155] "
  52. 480 print"[221] [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192] [221][155] "
  53. 481 print"[221][150]  [204][197][214][197][204] [201]  [221][154] [204][197][214][197][204][160][201][201]  [221] [204][197][214][197][204][160][201][201][201] [221][155] "
  54. 482 forx=0to2:print"[221]           [221]           [221]           [221][155] "
  55. 483 print"[221]"aq$(0,x)"[221]"aq$(1,x)"[221]"aq$(2,x)"[221][155] ":next
  56. 484 print"[221]           [221]           [221]           [221][155] "
  57. 485 print"[221]           [221]"aq$(1,3)"[221]           [221][155] "
  58. 486 print"[173][187]                                 [172][189][155] "
  59. 487 print" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
  60. 488 print"*                                     "
  61. 505 ifd=2then2010
  62. 520 yy=14:yn=14:xx=2:xn=2:aa=0:bb=0:goto2510
  63. 530 gete$:ife$=""then530
  64. 540 pokes4,32:pokes4,33
  65. 550 goto2020
  66. 570 for x=7to12:poke781,x:sys59903:next:forx=21to24:poke781,x:sys59903:next
  67. 571 print"[176][192][192][192][192][192][192][192][192][192][192][192][174][146]             [176][192][192][192][192][192][192][192][192][192][192][192][174]"
  68. 572 print"[221]          [157][157][157][157][157][157][157][157][157]"lv$(aa)
  69. 573 printtab(11)"[145] [221]"tab(26)"[221]         [157][157][157][157][157][157][157][157][148]"ph$(bb)
  70. 574 printtab(37)"[145] [221]"
  71. 575 print"[171][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][178][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][179]"
  72. 576 print"[221] [195]orrect answers: [146]   [221] [208]ercent: [146]     [221]"
  73. 577 print"[173][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][177][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][179]"
  74. 578 printtab(11)"[221] [209]uestion: [146]   [221] [198]1 = [197]xit [221]"
  75. 579 printtab(11)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][189]":goto590
  76. 580 t%=t%+1:ift%>29thenpokes1,21:pokes4,32:pokes4,33:goto1010
  77. 590 for x=13to20:poke781,x:sys59903:next
  78. 595 cc%=cc%+1:ifcc%=7orcc%=13thencc%=cc%+1
  79. 597 ifcc%=15thencc%=2
  80. 600 pokebr,cc%:pokesc,cc%
  81. 607 poke214,8:print:iftc%>9thenprinttab(18)tc%:printtab(18)"[145] [145]":goto609
  82. 608 printtab(19)tc%"[145]"
  83. 609 ift%>0thenpc%=int(tc%/t%*100+.5)
  84. 610 ifpc%=100thenprinttab(33)"100%":goto613
  85. 611 ifpc%>9thenprinttab(33)pc%"[157][157][157][157] %":goto613
  86. 612 printtab(34)pc%"[157][157][157][157]  %"
  87. 613 ift%>8thenprinttab(22)t%+1:printtab(22)"[145] ":goto615
  88. 614 printtab(23)t%+1
  89. 615 print""sl$(aa,bb,c%(t%))
  90. 616 print"";:forx=1tolen(sl$(aa,bb,c%(t%))):print"[192]";:next:print
  91. 620 w%(1)=c%(t%)
  92. 630 forx=2to4
  93. 640 w%(x)=int(rnd(0)*30)
  94. 650 fory=1tox-1:ifw%(x)=w%(y)then640
  95. 660 next:next
  96. 670 ca%=int(rnd(1)*4)+1:ifca%=1then690
  97. 680 h%=w%(1):w%(1)=w%(ca%):w%(ca%)=h%
  98. 690 printtab(tb)"[193]) "el$(aa,bb,w%(1))
  99. 700 printtab(tb)"[194]) "el$(aa,bb,w%(2))
  100. 710 printtab(tb)"[195]) "el$(aa,bb,w%(3))
  101. 720 printtab(tb)"[196]) "el$(aa,bb,w%(4))
  102. 725 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  103. 726 print"[221]  [213]se [146][195][210][211][210] keys or press letter to   [221]"
  104. 727 print"[221] make selection.  [212]hen press [146][210][197][212][213][210][206]. [221]"
  105. 728 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][145][145]"
  106. 735 e%=1:en=1
  107. 740 pokes1,21:pokes4,32:pokes4,33
  108. 741 gete$:ife$=""then741
  109. 742 ife$="[133]"thenct%=cc%-1:pokes4,32:pokes4,33:goto1010
  110. 743 ife$<>""then753
  111. 744 e%=e%+1:ife%=5thene%=1
  112. 745 goto756
  113. 753 ife$<>"[145]"then760
  114. 754 e%=e%-1:ife%=0thene%=4
  115. 756 eo=en:en=e%
  116. 757 poke214,eo+14:print:printtab(tb+3)el$(aa,bb,w%(eo))
  117. 758 poke214,en+14:print:printtab(tb+3)""el$(aa,bb,w%(en)):goto740
  118. 760 ife$=chr$(13)then770
  119. 765 ife$<"a"ore$>"d"then740
  120. 767 e%=asc(e$)-64:goto756
  121. 770 ife%=ca%then900
  122. 780 poke214,21:print:print"    [211]orry, the correct answer is:    "
  123. 785 print"                                     [145]"
  124. 790 printtab(19-int(len(el$(aa,bb,w%(ca%)))/2+.5))""chr$(34);
  125. 791 printel$(aa,bb,w%(ca%))chr$(34):pokes1,11:pokes4,32:pokes4,33
  126. 810 fori=1to4650:next
  127. 820 goto580
  128. 900 poke214,21:print:print"                                     [145]"
  129. 901 printtab(18-int(len(el$(aa,bb,w%(ca%)))/2+.5))""chr$(34);
  130. 904 printel$(aa,bb,w%(ca%))chr$(34):pokes4,32:pokes4,33
  131. 905 print"             is correct              "
  132. 910 fori=1to1650:next:tc%=tc%+1:goto580
  133. 1010 pokebr,2:pokesc,2:print"[147]"tab(12)" [176][192][192][192][192][192][192][192][192][192][174] [155]*"
  134. 1020 printtab(12)"[176][190]         [188][174][155] "
  135. 1030 printtab(12)"[221]    [198][201][206]    [221][155] "
  136. 1040 printtab(12)"[173][187]         [172][189][155] "
  137. 1050 printtab(12)" [173][192][192][192][192][192][192][192][192][192][189] [155] "
  138. 1055 printtab(12)"*             "
  139. 1060 printtab(5)" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
  140. 1065 printtab(5)"[176][190]                       [188][174][155] "
  141. 1070 printtab(5)"[221]      [160][217][207][213][210]  [211][195][207][210][197]       [221][155] "
  142. 1075 printtab(5)"[221]      [160][192][192][192][192][192][192][192][192][192][192][192]       [221][155] "
  143. 1080 printtab(5)"[221]    [212]otal correct:";tc%"[157]     ":printtab(31)"[145][221][155] "
  144. 1090 printtab(5)"[221]   [207]ut of"t%"[157] questions    ":printtab(31)"[145][221][155] "
  145. 1095 printtab(5)"[221]          "pc%"[157]%            ":printtab(31)"[145][221][155] "
  146. 1100 ift%=0thenprinttab(5)"[221]                         [221][155] ":goto1106
  147. 1101 iftc%=t%thenprinttab(5)"[221]       _[197]xcelente!       [221][155] ":goto1106
  148. 1102 iftc%/t%>.89thenprinttab(5)"[221]       _[205]uy bueno!       [221][155] ":goto1106
  149. 1103 iftc%/t%>.79thenprinttab(5)"[221]         _[194]ueno!         [221][155] ":goto1106
  150. 1104 iftc%/t%>.69thenprinttab(5)"[221]         [206]ot bad         [221][155] ":goto1106
  151. 1105 printtab(5)"[221]       [203]eep trying       [221][155] "
  152. 1106 printtab(5)"[173][187]                       [172][189][155] "
  153. 1107 printtab(5)" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
  154. 1108 printtab(5)"*                           "
  155. 1109 print"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][155]*"
  156. 1110 print"  [221]      [208]lease press [146][210][197][212][213][210][206]      [221][155] "
  157. 1113 print"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][155] "
  158. 1114 print"  *                                 "
  159. 1115 gete$:ife$=""then1115
  160. 1116 pokes4,32:pokes4,33:ife$<>chr$(13)then1115
  161. 1117 forx=8to24:poke781,x:sys59903:next:pokebr,8:pokesc,8
  162. 1118 print"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
  163. 1119 print" [176][190]                                [188][174][155] "
  164. 1120 print" [221]  [205]ake selection using [146][195][210][211][210] keys  [221][155] "
  165. 1121 print" [221]   or type letter.  [212]hen press    [221][155] "
  166. 1122 print" [221]             [146][210][197][212][213][210][206].              [221][155] "
  167. 1123 print" [221]                                  [221][155] "
  168. 1124 print" [221]  [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]  [221][155] "
  169. 1125 print" [221]                                  [221][155] "
  170. 1126 print" [221]          [193]) [146][195]ontinue quiz        [221][155] "
  171. 1127 print" [221]          [194]) [210]epeat quiz          [221][155] "
  172. 1128 print" [221]          [195]) [210]evise quiz          [221][155] "
  173. 1129 print" [221]          [196]) [205]ain menu            [221][155] "
  174. 1130 print" [221]          [197]) [209]uit                 [221][155] "
  175. 1131 print" [173][187]                                [172][189][155] "
  176. 1132 print"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
  177. 1133 print" *                                   [155] ":cc=0:zz=15:d=1:cn=0:zn=15
  178. 1135 gete$:ife$=""then1135
  179. 1136 pokes4,32:pokes4,33
  180. 1137 ife$=chr$(13)thenprint"[147]":oncc+1goto400,395,350,395,1180
  181. 1138 ife$="a"thenzz=15:cc=0:d=1:goto1160
  182. 1139 ife$="b"thenzz=16:cc=1:d=3:goto1160
  183. 1140 ife$="c"thenzz=17:cc=2:d=3:goto1160
  184. 1141 ife$="d"thenzz=18:cc=3:d=2:goto1160
  185. 1142 ife$="e"thenzz=19:cc=4:d=0:goto1160
  186. 1143 ife$<>"[145]"then1150
  187. 1144 zz=zz-1:ifzz<15thenzz=19
  188. 1145 cc=cc-1:ifcc<0thencc=4
  189. 1146 d=3:ifcc=4thend=0
  190. 1147 ifcc=3thend=2
  191. 1148 ifcc=0thend=1
  192. 1149 goto1160
  193. 1150 ife$<>""then1135
  194. 1151 zz=zz+1:ifzz=20thenzz=15
  195. 1152 cc=cc+1:ifcc=5thencc=0
  196. 1153 d=3:ifcc=4thend=0
  197. 1155 ifcc=3thend=2
  198. 1156 ifcc=0thend=1
  199. 1160 zo=zn:co=cn:zn=zz:cn=cc
  200. 1170 poke214,zo:print:printtab(15)""sc$(co)
  201. 1171 poke214,zn:print:printtab(15)sc$(cn)
  202. 1172 goto1135
  203. 1180 print"[147][158]  [193]re you sure you want to quit? ([217]/[206])  "
  204. 1181 geta$:ifa$=""then1181
  205. 1182 ifa$="y"ora$="[217]"then1189
  206. 1185 ifa$="n"ora$="[206]"then 410
  207. 1186 goto 1181
  208. 1189 pokebr,6:pokesc,6:print"[147]"tab(13)" [176][192][192][192][192][192][192][192][192][192][174] [155]*"
  209. 1190 printtab(13)"[176][190]         [188][174][155] "
  210. 1200 printtab(13)"[221]  _[193][196][201][207][211]!  [221][155] "
  211. 1210 printtab(13)"[173][187]         [172][189][155] "
  212. 1220 printtab(13)" [173][192][192][192][192][192][192][192][192][192][189] [155] "
  213. 1225 printtab(13)"*             "
  214. 1230 fori=1to1650:next
  215. 1231 print"[147]":poke56576,(peek(56576)and252)or3:
  216. 1232 poke53272,(peek(53272)and15)or16:poke648,4:print"[147]"
  217. 1234 poke53272,(peek(53272)and240)or4
  218. 1235 open15,8,15,"r0:hello connect=hello connect":input#15,er,er$:close15
  219. 1236 ifer<>63 then print"[147]":end
  220. 1238 load"hello connect",8,1
  221. 2000 poke214,yo:print:printtab(xo)""aq$(ao,bo)
  222. 2010 poke214,yn:print:printtab(xn)"[152]"aq$(an,bn):goto530
  223. 2020 ife$="a"thenxx=2:yy=14:aa=0:bb=0:goto2500
  224. 2030 ife$="b"thenxx=2:yy=16:aa=0:bb=1:goto2500
  225. 2040 ife$="c"thenxx=2:yy=18:aa=0:bb=2:goto2500
  226. 2050 ife$="d"thenxx=14:yy=14:aa=1:bb=0:goto2500
  227. 2060 ife$="e"thenxx=14:yy=16:aa=1:bb=1:goto2500
  228. 2070 ife$="f"thenxx=14:yy=18:aa=1:bb=2:goto2500
  229. 2080 ife$="g"thenxx=26:yy=14:aa=2:bb=0:goto2500
  230. 2090 ife$="h"thenxx=26:yy=16:aa=2:bb=1:goto2500
  231. 2100 ife$="i"thenxx=26:yy=18:aa=2:bb=2:goto2500
  232. 2110 ife$="q"andbb=3then2000
  233. 2120 ife$="q"thenxt=xx:xx=14:yy=20:at=aa:aa=1:bb=3:goto2510
  234. 2200 ife$<>"[145]"then2240
  235. 2210 ifbb=3thenxx=xt:aa=at
  236. 2220 ifbb>0thenyy=yy-2:bb=bb-1:goto2500
  237. 2230 xt=xx:at=aa:xx=14:bb=3:aa=1:yy=20:goto2510
  238. 2240 ifnot(e$="[157]"andbb<3)then2270
  239. 2250 ifxx=2thenxx=26:aa=2:goto2510
  240. 2260 xx=xx-12:aa=aa-1:goto2510
  241. 2270 ife$<>""then2320
  242. 2280 ifbb=3andbo<>3thenxx=xt:aa=at
  243. 2285 ifbb=3thenyy=14:bb=0:goto2500
  244. 2290 yy=yy+2:bb=bb+1:ifbb<3then2500
  245. 2300 xt=xx:at=aa:xx=14:aa=1:goto2510
  246. 2320 ifnot(e$=""andbb<3)then2350
  247. 2330 ifaa=2thenaa=0:xx=2:goto2510
  248. 2340 xx=xx+12:aa=aa+1:goto2510
  249. 2350 ife$<>chr$(13)then530
  250. 2360 tb=16/(1+bb)-bb:ifbb=3then1180
  251. 2370 pokebr,9:pokesc,9:print"[147]"tab(6)" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174] [155]*"
  252. 2371 printtab(6)"[176][190]                       [188][174][155] "
  253. 2372 printtab(6)"[221] [215]ould you like to study [221][155] "
  254. 2373 printtab(6)"[221] before the quiz?  (y/n) [221][155] "
  255. 2374 printtab(6)"[173][187]                       [172][189][155] "
  256. 2375 printtab(6)" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [155] "
  257. 2376 printtab(6)"*                           ":d=1
  258. 2380 gete$:ife$=""then2380
  259. 2382 pokes4,32:pokes4,33:ife$="n"then425
  260. 2384 ife$<>"y"then2380
  261. 2386 pokebr,3:pokesc,3:print"[147]"tab(14)"[176][192][192][192][192][192][192][192][192][192][174]"
  262. 2388 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][179] [211][208][193][206][201][211][200] [171][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  263. 2390 print"[221]            [157][157][157][157][157][157][157][157][157][157]"lv$(aa)
  264. 2392 printtab(13)"[145] [221]  [211][212][213][196][217]  [221]           [157][157][157][157][157][157][157][157][157]"ph$(bb)
  265. 2394 printtab(36)"[145]  [221]"
  266. 2396 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  267. 2400 poke214,20:print:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  268. 2402 print"[221][146][195][210][211][210] keys=[213]p&[196]own   [146][210][197][212][213][210][206]=[211]tart quiz[221]"
  269. 2404 print"[221][146][211][208][193][195][197]=[212]oggle between [197]nglish/[211]panish [221]"
  270. 2406 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":pg=1:zn=1:zo=1:y=1
  271. 2408 er$="                                  "
  272. 2410 forx=1to15:poke781,x+4:sys59903:ifx+(pg-1)*15>9then2414
  273. 2412 print" "x"[157]) "sl$(aa,bb,x-1):goto2416
  274. 2414 printx+(pg-1)*15"[157]) "sl$(aa,bb,x+(pg-1)*15-1)
  275. 2416 next:goto2432
  276. 2422 poke214,zo-(pg-1)*15+3:print:print""er$:print"[145]"sl$(aa,bb,zo-1)
  277. 2423 zo=zn
  278. 2432 poke214,zn-(pg-1)*15+3:print:print""er$:print"[145]"sl$(aa,bb,zn-1)
  279. 2435 gete$:ife$=""then2435
  280. 2437 pokes4,32:pokes4,33
  281. 2439 ife$=chr$(13)then425
  282. 2445 ife$<>" "ande$<>"[160]"then2451
  283. 2446 ify=0theny=1:goto2449
  284. 2447 poke214,zn-(pg-1)*15+3:print:print""er$:print"[145]"el$(aa,bb,zn-1)
  285. 2448 y=0:goto2435
  286. 2449 poke214,zn-(pg-1)*15+3:print:print""er$:print"[145]"sl$(aa,bb,zn-1)
  287. 2450 y=1:goto2435
  288. 2451 ife$<>"[145]"ande$<>"[157]"then2460
  289. 2452 y=1
  290. 2453 ifzn-(pg-1)*15=1andpg>1thenpg=pg-1:zn=zn-1:zo=zn:poke214,4:print:goto2410
  291. 2454 ifzn/pg>1thenzn=zn-1
  292. 2455 goto2422
  293. 2460 ife$<>""ande$<>""then2435
  294. 2462 y=1:ifzn/pg=15andpg<3thenpg=pg+1:zn=zn+1:zo=zn:poke214,4:print:goto2410
  295. 2464 ifzn/pg<15thenzn=zn+1
  296. 2465 goto2422
  297. 2500 ifbb=3thenxo=xn:xn=xt:yo=yn:yn=yy:ao=an:an=at:bo=bn:bn=bb:goto2000
  298. 2510 xo=xn:xn=xx:yo=yn:yn=yy:ao=an:an=aa:bo=bn:bn=bb:goto2000
  299. 5000 data"[193]) [215]ord    ","[194]) [208]hrase  ","[195]) [211]entence"
  300. 5010 data"[196]) [215]ord    ","[197]) [208]hrase  ","[198]) [211]entence"
  301. 5020 data"[199]) [215]ord    ","[200]) [208]hrase  ","[201]) [211]entence","[209]) [209]uit    "
  302. 5030 data" [204][197][214][197][204][160][201]","  [215]ords","[204][197][214][197][204] [201][201]"," [208]hrases","[204][197][214][197][204] [201][201][201]","[211]entences"
  303. 5040 data"[195]ontinue quiz","[210]epeat quiz","[210]evise quiz","[205]ain menu","[209]uit"
  304.